home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed20.d64 / tt26 (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  6KB  |  162 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
  2. 15 PRINT"[147]                                        [146]";
  3. 20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
  4. 25 PRINT"                                        [146]":GOSUB710
  5. 30 PRINT"               [205]ODULE 26 [146]
  6. 35 [141]720
  7. 38 [151]53280,0:[151]53281,0:[151]646,7
  8. 40 [153]"LOAD                 (null)(null)26 WAIT
  9. 42 PRINT"[150]              [215][193][210][206][201][206][199]!![159]"
  10. 44 PRINT"   [201]F YOU MAKE 5 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
  11. 46 PRINT"MUST START          OVER AGAIN."
  12. 48 PRINT"[150]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
  13. 50 GETR$:IFR$<>CHR$(32)THEN50
  14. 52 GOSUB600
  15. 56 POKE53280,3:POKE53281,15:POKE646,0
  16. 58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0
  17. 60 LINE=LINE+1:PRINT"[147] [212][212]26  [197]XERCISE:"TAB(2)LINE"OF 17"TAB(27)"[197]RRORS:"Q
  18. 62 FOR K=1 TO 17
  19. 64 READ E$(K)
  20. 66 PRINT" [212]YPE CORRECTLY, THEN PRESS [210][197][212][213][210][206][146]"
  21. 68 PRINT" ";E$(K)
  22. 70 PRINT"[144]"
  23. 72 READ F$(K)
  24. 74 POKE198,1:POKE631,34:INPUT C$
  25. 76 IF C$=F$(K) THEN 90
  26. 78 PRINT" **** [206]OT CORRECT - [210]EPEAT - [197]RRORS:"G"[144]":GOSUB2050:GOSUB710
  27. 80 Q=Q+1:G=G+1
  28. 82 IF Q=5 THEN GOSUB 400:RESTORE:G=0:GOTO 56
  29. 84 GOTO 74
  30. 90 PRINT"[156]              [195][207][210][210][197][195][212]![144]":GOSUB2000:GOSUB710:P=P+1
  31. 92 IFP=17THEN RESTORE:GOTO 300
  32. 94 GOTO60
  33. 99 REM DATA FOR EXERCISES
  34. 100 DATA" [202]OE, [202]OHN, [202]OE, [202]OHN, [202]OE, [202]OHN.","[202]OE, [202]OHN, [202]OE, [202]OHN, [202]OE, [202]OHN."
  35. 105 DATA" [217]ES, [206]O, [217]ES, [206]O, [217]ES, [206]O, [217]ES.","[217]ES, [206]O, [217]ES, [206]O, [217]ES, [206]O, [217]ES."
  36. 110 DATA" [207]LIVER, [208]AT, [207]LIVER, [208]AT, [207]LIVER.","[207]LIVER, [208]AT, [207]LIVER, [208]AT, [207]LIVER."
  37. 115 DATA" [204]OUIS, [203]EN, [204]OUIS, [203]EN, [204]OUIS.","[204]OUIS, [203]EN, [204]OUIS, [203]EN, [204]OUIS."
  38. 120 DATA" [205]ARK, [206]ORM, [205]ARK, [206]ORMAN, [205]ARK.","[205]ARK, [206]ORM, [205]ARK, [206]ORMAN, [205]ARK."
  39. 125 DATA" [202]AMES, [213]LLA, [202]AMES, [213]LLA, [202]AMES.","[202]AMES, [213]LLA, [202]AMES, [213]LLA, [202]AMES."
  40. 130 DATA" [204]AURA, [201]NGE, [204]AURA, [201]NGE, [204]AURA.","[204]AURA, [201]NGE, [204]AURA, [201]NGE, [204]AURA."
  41. 135 DATA" [194]ETTY, [205]ARY, [194]ETTY, [205]ARY, [194]ETTY.","[194]ETTY, [205]ARY, [194]ETTY, [205]ARY, [194]ETTY."
  42. 140 DATA" [200]ENRY, [213]NCLES, [200]ENRY, [213]NCLES.","[200]ENRY, [213]NCLES, [200]ENRY, [213]NCLES."
  43. 145 DATA" [205]ISSISSAUGA, [205]ISSISSAUGA, [207]NT.","[205]ISSISSAUGA, [205]ISSISSAUGA, [207]NT."
  44. 150 DATA" [204]YNDWOOD, [204]YNDWOOD, [204]YNDWOOD.","[204]YNDWOOD, [204]YNDWOOD, [204]YNDWOOD."
  45. 155 DATA" [200]AMILTON, [200]AMILTON, [200]AMILTON.","[200]AMILTON, [200]AMILTON, [200]AMILTON."
  46. 160 DATA" [203]INGSTON, [203]INGSTON, [203]INGSTON.","[203]INGSTON, [203]INGSTON, [203]INGSTON."
  47. 165 DATA" [207]TTAWA, [207]TTAWA, [207]TTAWA, [207]TTAWA.","[207]TTAWA, [207]TTAWA, [207]TTAWA, [207]TTAWA."
  48. 170 DATA" [208]ICTON, [208]ICTON, [208]ICTON, [208]ICTON.","[208]ICTON, [208]ICTON, [208]ICTON, [208]ICTON."
  49. 175 DATA" [204]INDSAY, [204]INDSAY, [204]INDSAY, [207]NT.","[204]INDSAY, [204]INDSAY, [204]INDSAY, [207]NT."
  50. 180 DATA" [211]HERRY [194]ALRAM MADE ME DO THIS.","[211]HERRY [194]ALRAM MADE ME DO THIS."
  51. 298 :
  52. 299 REM FINAL INSTRUCTIONS
  53. 300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
  54. 305 POKE53280,0:POKE53281,0:POKE646,7
  55. 310 PRINT"[147]  [212]HIS IS THE END OF MODULE 26.":GOSUB710
  56. 315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
  57. 317 PRINT"[145]"VAL(TI$)
  58. 320 GOSUB720
  59. 325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
  60. 330 [141]740
  61. 335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED TWICE
  62. 340 PRINT"  BEFORE ADVANCING TO MODULE 27."
  63. 345 GOSUB730
  64. 350 PRINT"[158]  [215]HEN YOU HAVE RECORDED YOUR TIME
  65. 355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null)
  66. 360 GETR$:IFR$<>CHR$(32)THEN360
  67. 362 PRINT"[147]  [217]OU HAVE A CHOICE:
  68. 364 [153]"  (null)RESS  R WAIT TO REPEAT THIS MODULE
  69. 366 PRINT"  [208]RESS  C [146] TO GO TO MODULE 27
  70. 368 [153]"  (null)RESS  M WAIT TO GO TO DISK MENU
  71. 370 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN370
  72. 372 IFR$="R"THENRESTORE:GOTO10
  73. 374 IFR$="M"THEN386
  74. 376 RESTORE:POKE631,13:POKE198,2
  75. 378 PRINT"[147]  [204]OADING MODULE 27
  76. 380 [147]"TT27",8
  77. 382 [138]
  78. 384 [128]
  79. 386 [140]:[151]631,13:[151]198,2
  80. 388 [153]"LOAD  (null)ETURNING TO THE DISK MENU
  81. 390 LOAD"MENU",8
  82. 392 RUN
  83. 394 END
  84. 399 :
  85. 400 REM START AGAIN
  86. 410 POKE53280,0:POKE53281,0:POKE646,10
  87. 420 PRINT"[147]   YOU ARE MAKING TOO MANY MISTAKES!":GOSUB2150:GOSUB720
  88. 430 PRINT"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
  89. 440 [141]740:[153]"LOAD"
  90. 450 [142]
  91. 598 :
  92. 599 [143] INSTRUCTIONS FOR MODULE
  93. 600 [153]"OPENLOAD  (null)ODULE 26 INTRODUCES (null)RIGHT$CHR$LEFT$(null) HAND         LENATN(null)RIGHT$(null)ATN(null)WAIT LETTERS.
  94. 605 PRINT"  [150]   [146][153]   [146]   [146][158]      [146][159]      [146]   [146][153]   [146][150]   [146]
  95. 610 [153]"   DEF (null) WAITPRINT (null) WAIT VAL WAITSYS (null)  (null) WAITOPEN (null)  (null) WAIT RIGHT$ WAITPRINT (null) WAITDEF (null) WAIT   "
  96. 615 [153]"    DEF ATN WAITPRINT (null) WAIT STR$ WAITSYS ASC WAIT CHR$WAITOPEN  LEFT$  MID$ WAIT (null) WAITPRINT (null) WAITDEF : WAIT"
  97. 620 [153]"     DEF (null) WAITPRINT (null) WAIT LEN WAITSYS (null)  PEEK WAITOPEN (null)  (null) WAIT , WAITPRINT . WAITDEF   WAIT
  98. 625 PRINT" [211][200][201][198][212][146]         [211][208][193][195][197]      [146]    [211][200][201][198][212][146]
  99. 630 [141]720
  100. 635 [153]"OPEN  (null)SE YOUR  ATN WAIT FINGER TO PRESS THE        (null)VALASC(null) (null)LEFT$RIGHT$ASC(null) KEY."
  101. 660 [141]720:[153]"CONT        (null)RESS  (null)(null)ATNLENVAL WAIT TO STARTOPEN"
  102. 665 [161]R$:[139]R$[179][177][199](32)[167]665
  103. 670 [142]
  104. 700 [143] TIME DELAYS
  105. 710 [129]T[178]1[164]1000:[130]:[142]
  106. 720 [129]T[178]1[164]2000:[130]:[142]
  107. 730 [129]T[178]1[164]3000:[130]:[142]
  108. 740 [129]T[178]1[164]4000:[130]:[142]
  109. 750 [129]T[178]1[164]5000:[130]:[142]
  110. 899 [143] END OF MODULE FLASH
  111. 900 [151]54276,17:[151]54277,30:[151]54278,200:[151]54296,15
  112. 905 [151]54272,220:[129] T[178]15 [164] 1 [169][171]1
  113. 910 [151]54273,T:[151]53281,T
  114. 915 [129] T1[178]1 [164] 5:[130] T1:[130] T:[129] T[178]1 [164] 30
  115. 920 [151]54273,T:[151]53280,T
  116. 925 [129]T1[178]1 [164] 5:[130] T1:[130] T
  117. 930 [151]54276,0:[151]54273,0:[151]54272,0
  118. 936 [142]
  119. 1998 :
  120. 1999 [143] <YES> SOUND
  121. 2000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  122. 2005 [151]54296,15:[151]54277,42:[151]54278,250
  123. 2010 [151]54276,23:[151]54273,23:[151]54272,181
  124. 2015 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  125. 2020 [151]54296,0:[142]
  126. 2048 :
  127. 2049 [143] <NO> SOUND
  128. 2050 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  129. 2055 [151]54296,15:[151]54277,18:[151]54278,242
  130. 2060 [151]54276,33:[151]54273,4:[151]54272,48
  131. 2063 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]800:[130]
  132. 2065 [129]E[178]S[164]S[170]28:[151]E,0:[130]
  133. 2070 [151]54276,0:[151]54273,0:[151]54272,0
  134. 2075 [151]54296,0:[142]
  135. 2098 :
  136. 2099 [143] <END OF EXERCISE> SOUND
  137. 2100 [151]54276,17:[151]54277,30:[151]54278,200:[151]54296,15
  138. 2105 [151]54272,220:[129]T[178]50[164]1[169][171]1
  139. 2110 [129]T1[178]1[164]5:[130]T1:[130]T:[129]T[178]1[164]30
  140. 2115 [151]54273,T:[151]53280,T
  141. 2120 [129]T1[178]1[164]5:[130]T1:[130]T
  142. 2125 [151]54276,0:[151]54273,0:[151]54272,0
  143. 2130 T[151]54296,0:[142]
  144. 2148 :
  145. 2149 [143] <WHOOPING> SOUND
  146. 2150 [129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,8
  147. 2155 [151]54277,8:[151]54278,255:[151]54276,23
  148. 2160 [129]Z[178]1[164]3:F1[178]2
  149. 2165 [129]Y[178]1[164]3:F2[178]8
  150. 2170 [151]54273,F1
  151. 2175 [129]X[178]1[164]5:[151]54287,F2
  152. 2180 F2[178]F2[172]1.4:[130]X:F1[178]F1[172]1.5:[130]Y
  153. 2185 [129]W[178]1[164]10:[151]54287,F2
  154. 2190 F2[178]F2[172]1.05:[130] W:[130] Z:[151]54278,15
  155. 2195 [151]54296,0:[142]
  156. 4999 :
  157. 5000 [143] * IN MEMORY OF RAD JANJIC *                 ** RIP 87:11:26 **
  158. 5005 :
  159. 5010 [143] DESIGNED BY W H CUMBERLAND 87:12:21/88:04:24/90:11:12/91:05:13
  160. 5020 [143] HELP FROM JIM BUTTERFIELD
  161. 5025 [143] ADVISE WHC [416/278 7687] OF   ANY IMPROVEMENTS OR SUGGESTIONS
  162.